How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act6a/00839.ls

Text File | 1995-03-28 | 511 b | 23 lines

on talkinghead sndname
  if the number of cast sndname < 1 then
    exit
  end if
  if the mouseDown then
    exit
  end if
  if the castType of cast sndname = #sound then
    set ring to the number of cast "head1" - 1
    puppetSound(sndname)
    set ptime to the timer
    set dtime to 0
    set futtime to 20 + ptime + (the size of cast sndname / 183)
    repeat while the timer < futtime
      if the mouseDown then
        exit
      end if
      updateStage()
    end repeat
  end if
  puppetSound(0)
end